• Supports text and binary frames (with 11 built-in frame formats)
• Frames can be structured inside frames (multi-level hierarchy)
• Access directly all frame datas as a TMemoryStream (completely customized frame contents)
• Frames can be compressed and can be grouped individualy too
• Load the stream or dynamicaly access the stream frames on-demand from source medium
• Save the stream to a standard TStream, send the stream over network, store it in a database blob field, etc.
• 64 bit data sizes (supports files and content >4GB)
• Built-in encryption support (simple XOR or DES using OpenSSL)
• CRC32 integrity checking on stream and frame level
• Filters (queries) and sorting can be called on any branch level, like an SQL query
• Fully unicode implementation
• COM class DLL included
• Delphi XE2 64bit and OSX, Delphi XE5 iOS and Android, Lazarus/Free pascal compatible

• Download Storage Stream Library

[Files]
Source: "D:\Storage Stream Library\Setup files\Bin\Win32\StorageStreamCOM.dll"; DestDir: "{app}\Bin\Win32"; Flags: regserver 32bit
Source: "D:\Storage Stream Library\Setup files\Bin\Win64\StorageStreamCOM.dll"; DestDir: "{app}\Bin\Win64"; Flags: regserver 64bit; Check: IsWin64

    StorageStream.AddFrame('My new frame').SetText('Some text').GroupIdentifier := 3;

Root
 +Vehicles
  +Ships
  +Cars
   +Ferrari

    MyFrame := StorageStream.FindFrame('Vehicles->Cars->Ferrari');

    StorageStreamFilter := Frame.FilterByDateRange('Person', 'Birth date', EncodeDate(1990, 1, 1), EncodeDate(2000, 1, 1)).FilterByIntegerRange('Person', 'Salary', 110000, 210000).SortByInteger('Salary');

• Create an instance with (VBScript) 'set myobject = createobject("StorageStream.StorageStreamCOM")'
• Function with 'As' like 'GetAsString' work on the current frame. Functions without 'As' like 'GetStringByName' work with sub-frames of the current frame, 'ByName' postfix looks-up the first matching frame name automatically, 'ByIndex' postifixed functions expect a frame index explicitly.
• To get an interface for a frame use 'GetFrameByIndex()' or 'GetFrameByName()' functions. They give back an interface for the frame to access it's parameters or to add sub frames for example ('AddFrame()' which also gives back an interface for the newly created frame). This sub frame interfaces can be nested, to iterate over all the sub-frames or create multi-level sub-frame layouts.
• To limit loading of files that are generated by Your app. only, set the "load format filter" 4 ANSI character value with 'SetFormatFilter()' else all Storage Stream Files will be loaded/opened. The same 4 character value should be set before saving Your Storage Stream Files with 'SetFormatID()'. For example these 4 character values could be something like: 'MSSF' - My Storage Steram File eg. or any combination just use ANSI (non-unicode) characters.
• Functions that expect a 'LanguageID' require a 3 character ID like 'eng' for english.
• Functions that expect a 'Stream' require an IStream interface as the parameter.
• Hint: Use the included demo app. 'StorageStreamTutorialStructured.exe' to see the file's structure created by Your app..

	option explicit
	dim myobject, contentvalue, values
	set myobject = createobject("StorageStream.StorageStreamCOM")
	myobject.LoadFile "Storage Stream Test.3ssf"
	wscript.Echo myobject.count
	myobject.GetStringByIndex 0, contentvalue 'Get the first frame as a string
	wscript.Echo contentvalue
	set myobject=nothing

procedure TForm1.Button1Click(Sender: TObject);
var
    SStream: IStorageStream;
    Error: HResult;
    FileStream: TFileStream;
    StreamAdapter: TStreamAdapter;
    NewFrame: IStorageStreamFrame;
begin
    //* Acquire the class
    SStream := CreateComObject(CLASS_StorageStreamCOM) as IStorageStream;
    SStream.SetFormatID('MYDB');
    //* Create a file stream
    FileStream := TFileStream.Create('D:\Picture.jpg', fmOpenRead);
    try
        //* Create an IStream adapter fo the file stream
        StreamAdapter := TStreamAdapter.Create(FileStream);
        //* Add a new virtual frame with the IStream content
        SStream.AddFrameVirtual('MyPIC', StreamAdapter, NewFrame);
        NewFrame.Set_FrameType(ssftBinary);
        //* Save the Storage Stream file, the IStream will be streamed to disk
        Error := SStream.SaveToFile('D:\MyFile.ssf');
        //* Display any errors, 0 means OK
        Showmessage(IntToStr(Error));
    finally
        FreeAndNil(FileStream);
    end;
end;

var
  StorageStreamFrame: IStorageStreamFrame;
begin
    StorageStreamFrame := IInterface(OutFrame) as IStorageStreamFrame;
end;

• https://blog.excastle.com/2005/07/06/getting-an-interface-back-out-of-a-variant/comment-page-1/

    IdOpenSSLSetLibPath(System.IOUtils.TPath.GetLibraryPath);
    Showmessage(BoolToStr(IdSSLOpenSSLHeaders.Load, True));

var
    StorageStream: TStorageStream;
begin
    //* Create and save
    StorageStream := TStorageStream.Create('SSCR');
    try
        StorageStream.Crypt.SetKey('password');
        StorageStream.GlobalEncryptionID := True;
        StorageStream.AddFrame('My test frame').SetText('Content 1').Encrypt;
        StorageStream.AddFrame('My test frame 2').SetText('Content 2').Encrypt;
        StorageStream.SaveToFile('D:\SS.dat');
    finally
        FreeAndNil(StorageStream);
    end;
    //* Load, decrypt and display
    StorageStream := TStorageStream.Create('SSCR');
    try
        StorageStream.Crypt.SetKey('password');
        StorageStream.LoadFromFile('D:\SS.dat');
        StorageStream.FindFrame('My test frame 2').Decrypt;
        Showmessage(StorageStream.FindFrame('My test frame 2').GetText);
    finally
        FreeAndNil(StorageStream);
    end;

• Storage Stream Library topic @ Embarcadero forum